calculate quartiles in R